home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Abacus diskdrives IO.adf / CH9 / Code.S < prev    next >
Text File  |  1978-06-28  |  881b  |  40 lines
  1. Device         = 350
  2. Port           = 36
  3. RepPort        = 174
  4. SigTask        = 16
  5. Task           = 276
  6. FindName       = -276
  7.  
  8. Header         = $ff00000b
  9. Source         = $55000
  10. Destn          = $50000
  11.  
  12.  
  13.                move.l $4,a6
  14.                lea Name,a1
  15.                lea Device(a6),a0
  16.                jsr FindName(a6)
  17.                tst.l d0
  18.                beq Error
  19.                move.l Task(a6),a0
  20.                move.l d0,a6
  21.                move.l Port(a6),a3
  22.                lea RepPort(a3),a1
  23.                move.l SigTask(a1),-(a7)
  24.                move.l a1,-(a7)
  25.                move.l a0,SigTask(a1)
  26.  
  27.                move.l #Header,d0
  28.                lea Source,a0
  29.                lea Destn,a1
  30.                jsr $feaadc
  31.  
  32.                move.l (a7)+,a1
  33.                move.l (a7)+,SigTask(a1)
  34. Error:        rts
  35.  
  36. Name:          dc.b 'trackdisk.device',0
  37.  
  38.                END
  39.  
  40.